Top 10k strings from Eight Cards Patience (19xx)(-).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TAP] /

Back to the directory listing

   4 R$(Z2,R(Z2)-4
   4 )=R$(Z2,R(Z2)-2
   2 STACK=STACK-1
   2 SLST=SLST+5
   2 C$=S$(SLST
   2 ;B$;B$;B$;B$;
   2 ;B$;B$;B$;B$
   2 )+P$(PSL-5
   2 "ENTRY UNACCEPTABLE,RE-ENTER";
   1 R(Z2)=R(Z2)+5
   1 R(Z1)=R(Z1)-5
   1 R$(Z2,R(Z2)
   1 R$(Z1)=R$(Z1,
   1 R$(Z1)=C$:
   1 PSL=PSL+15
   1 PATIENCE  
   1 DEALTYP=DEALTYP+1
   1 DEALT=DEALT+1
   1 D$=P$(PSL-10
   1 D$=D$+R$(Z1,M-4
   1 D$="A01202303404505606707808909
   1 C$=R$(Z1,R(Z1)-5
   1 C$=R$(Z1,R(Z1)-10
   1 C$=R$((Z1),R(Z1)-5
   1 C$=P$(PSL-5
   1 A$=A$+D$(Q
   1 ;"YOUR PATIENCE IS REWARDED"
   1 ;"YOU MAY";
   1 ;"The top card   ":
   1 ;"The bottom row ":
   1 ;"The Spare Pack ":
   1 ;"TO REPEAT THE RULES PRESS 
   1 ;"THE PLAYING AREA"
   1 ;"RUN YOUR WAY"
   1 ;"Pack ";STACK
   1 ;"PRESS ""ENTER"" FOR NEW CARD ":
   1 ;"PLEASE WAIT A MOMENT "
   1 ;"PACK USED"
   1 ;"NO CARDS DEALT YET":
   1 ;"Dealing area "
   1 ;"DO YOU WANT INSTRUCTIONS?  (Y/N)"
   1 ;"Cards are dealt 3 at a time.    Blank spaces in the top row can only be filled with cards that  have the same ""base value"" as   the first card which is dealt.  The base value is shown at the  top of the screen."
   1 ;"CHOOSE THE TYPE OF DEAL"'''" 1) Straight block of 3 cards"''" 2) Block of 3 in reverse order"'''"       1 IS A HARDER GAME":
   1 ;"CARD No & MOVE No (ie 93) ";
   1 ;"BAD LUCK: THE CARDS DID NOT ";
   1 ;"Ancient Proverb:"'';
   1 ;"3) FINISH PLAYING"
   1 ;"2) PLAY AGAIN:OTHER DEAL";
   1 ;"1) PLAY AGAIN:SAME DEAL";
   1 ;"(1)MOVE CARD  (2)DEAL  (0)RESIGN":
   1 ;"!!!!! WELL DONE!!!!!";
   1 ;" UPPER PACK ASCENDING  ";
   1 ;" SHUFFLING ";
   1 ;" PRESS 1 or 2 "
   1 ;" PATIENCE "::
   1 ;" PACK  "
   1 ;" LOWER PACK DESCENDING "
   1 ;" END OF";
   1 ;" EIGHT ";
   1 ;" CARDS "
   1 ;" BUT HURRY!":
   1 ;" BASE VALUE  ";K$;" "
   1 ;" ";N;" ";
   1 ;"  SHUFFLING  ";
   1 ;"    OH LORD GIVE ME PATIENCE...":
   1 ;"       ";
   1 ;"       ":
   1 ;"           ":
   1 ;"                ":
   1 ;"                                ":
   1 10J11Q182K13"
   1 *(DEALTYP=2
   1 )+P$(PSL-10
   1 )+P$(PSL+5
   1 (F$="A")+(F$="3")+(F$="5")+(F$="9")
   1 (F$="8")+(F$="9")+(F$="
   1 (F$="6")+(F$="7")
   1 (F$="4")+(F$="5")+(F$="8")+(F$="9")+(F$="
   1 (F$="2")+(F$="3")
   1 "PRESS ENTER TO CONTINUE ";
   1 "PATIENCE"
   1 " Spaces left in the bottom row   are filled from the spare pack."
   1 " Cards can be added to the top   cards only in ascending order.  These can be taken from the     bottom row or from dealt cards."''" The bottom row is added to in   descending order. These can be  cards from the top row, cards   moved sideways or dealt cards."
   1  "''"  Press any other key to play"
   1